﻿Imports System

Namespace PumpIt.Forms

    Public Class frmMain

        Private Sub mnuAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAbout.Click
            Try
                Dim frm As New frmAbout
                frm.ShowDialog()
                frm.Dispose()
            Catch ex As Exception

            End Try
        End Sub

        Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
            Try
                Me.Close()
            Catch ex As Exception

            End Try
        End Sub

        Private Sub mnuSendEmail_Click(sender As Object, e As EventArgs) Handles mnuSendEmail.Click
            Try
                Dim frm As New frmSendReport
                frm.ShowDialog()
                frm.Dispose()
            Catch ex As Exception

            End Try
        End Sub

    End Class

End Namespace